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— Keyboard. Mesa Edited by Johnsson on September 22, 1977 8:18 AM 

DIRECTORY 

KeyDefs: FROM "keydefs" , 
Mopcodes: FROM "mopcodes" , 
StreamDefs: FROM "streamdef s" , 
InlineDefs: FROM " in! inedef s" , 
ControlDefs: FROM "controldef s'\ 
ProcessDefs: FROM "processdef s"; 

DEFINITIONS FROM ProcessDefs, InlineDefs, KeyDefs, StreamDefs; 

Keyboard: PROGRAM IMPORTS StreamDefs SHARES ProcessDefs, StreamDefs = 

BEGIN 

— variables set by KeyStreams 
ks: PUBLIC KeyboardHandle; 

CDT: PUBLIC BOOLEAN; 

cursorTracking: PUBLIC BOOLEAN; 

IdleProc: PUBLIC PROCEDURE; 

KeyTable: PUBLIC POINTER TO ARRAY [0..80) OF Keyltem; 

— The Keyboard part: 

-- fixed addresses for keyboard and mouse 

Keys: POINTER TO KeyArray ♦- LOOPHOLE[KeyDef s .Keys]; 

Coordinate: TYPE = RECORD [x,y: INTEGER]; 
Mouse: POINTER TO Coordinate ♦- LOOPHOLE[424B] ; 
Cursor: POINTER TO Coordinate <- LOOPHOLE[426B] ; 
Xmax: CARDINAL = 606-16; 
Ymax: CARDINAL = 808-16; 

ns, os: KeyArray; 

OldState: PUBLIC POINTER TO KeyArray = Qos; 

NewState: POINTER TO KeyArray = @ns; 

GetDebugger: MACHINE CODE = INLINE [Mopcodes . zKFCB , ControlDefs . sin terrupt] ; 

ProcessKeyboard: PUBLIC PROCEDURE = 
BEGIN 

bitcount, start: [0..15]; 
char: [0. .377B]; 
entry: Keyltem; 
i: [0. .SIZE[KeyArray]); 
interruptState: updown <- up; 
newin: CARDINAL; 
ph: ProcessHandle; 
pp: ProcessPriori ty ; 
StateWord: WORD; 
stroke: POINTER TO KeyBits = LOOPHOLE[NewS tate] ; 

DO 

-- first update the cursor 

IF cursorTracking THEN 

BFGIN 

Mouse. x ♦- Cursor. x «- MAX[0 , MIN[Xmax .Mouse, x]] ; 

Mouse. y <- Cursor. y ♦- MAX[0 , MIN[Ymax .Mouse. y]] ; 

END; 

NewStatet <- Keyst; 

-- The following code checks for Ctrl-SwaL, the debugger interrupt keys. 
-- This code could be made into a separate process. 
IF stroke. Ctrl = down AND s troke . Spare3 = down THEN 
BTGIN 

If interruptState = up THFN 
BFGIN 

interruptState ♦- down; 

TOR pp DrCRFASING IN ProcessPr ior i ty DO 
ph - PV[pp]: 
If ph H ProcessNTl. AND ph ft NIL AND ph . s tate . ins tbyte // Mopcodes . /BRK THFN 
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BEGIN 

ph. state, instbyte ♦• Mopcodes .zBRK; 
BL0CK[]; — try to take breakpoint 
IF PV[pp] = ph AND ph. state. instbyte = THEN EXIT; 
END; 
REPEAT FINISHED => GetDebugger[] ; 
ENDLOOP; 
NewStatet <- Keyst; 
END; 
END 
ELSE interruptState «- up; 

— The following code checks for down transitions in the keyboard state 
-- and enters characters in the current keystream buffer 
FOR i IN [0. .SIZE[KeyArray]) DO 

IF (StateWord *• BITXOR[01dState[i ] , NewState[i ]]) tt THEN 
BEGIN -- found one or more transitions 
start «- 0; 
DO 

FOR bitcount IN [start.. 15] DO 

IF LOOPHOLE[StateWord,INTEGER]<0 THEN EXIT; 
StateWord «- 8ITSHIFT[StateWord , 1] ; 
ENDLOOP; 
entry «- KeyTable[i *16 + bitcount]; 
IF (char ♦• entry. NormalCode) # 

AND BITAND[01dState[i],BITSHIFT[1000008, -bitcount]] # THEN 
BEGIN 

SELECT updown[down] FROM 
stroke. Ctrl => 

IF char = 177B THEN BEGIN CDT <- TRUE; GOTO skip END 
ELSE char - BITAND[char, 37B]; 
stroke. LeftSh ift, stroke . RightShift => 

char «- entry .ShiftCode; 
stroke. Lock -> 

IF entry. Letter THEN char <- entry .ShiftCode; 
ENDCASE; 
IF (new^n*-ks. in + 1) = KeyBufChars THEN newin «- 0; 
IF newin # ks.out THEN 
BEGIN 

ks.buffer[ks. in] «- LOOPHOLE[char] ; 
ks . in «- newin ; 
END; 
EXITS skip => NULL; 
END; 
IF (StateWord ♦- BITSHIFT[StateWord , 1])=0 THEN EXIT; 
start +• bi tcount+1 ; 
ENDLOOP; 
END; 
ENDLOOP; 
OldState? «- NewStatet; 
BLOCK[]; 
ENDLOOP; 
END; 

ReadChar: PUBLIC PROCEDURE [stream: StreamHandle] RETURNS [char: UNSPECIFIED] 
BEGIN char «- 0; 
WITH s: stream SELECT FROM 
Keyboard => 

DO -- until character typed 
IF s.out # s.in THEN 
BEGIN 

char «- s .buf fer[s . out] ; 
s . ou t <- 

IF s.out = KeyBufChars-t 
THEN 

El SF s.out+t ; 
RETURN 
FND; 
IF IdleProctfl OOPIIO! T[0] THEN IdleProc[]; 
-- BIOCK[]: when scheduler arrives 
ENDl OOP; 
rNDCASF => SIGNAL S treamFrror[s Lreain, S treamType] : 
RTTURN; 
TND; 

InpuLBtifferrmpty: PUBLIC PROCFDURr [s tream: S treamllandl e] RfTURNS [BOOl FAN] = 
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BEGIN 

WITH s: stream SELECT FROM 

Keyboard => RETURN[s.in = s.out]; 

ENDCASE => SIGNAL StreamError[stream,StreamType] ; 
RETURN[FALSE]; 
END; 

OldState* <- Keyst; 

END. 



